        data grida(1,1:86) /
     .  0.1000000000000000D+01,-.1000000000000000D+01,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.5773502691896257D+00,-.5773502691896257D+00,
     .  0.5773502691896257D+00,-.5773502691896257D+00,
     .  0.5773502691896257D+00,-.5773502691896257D+00,
     .  0.5773502691896257D+00,-.5773502691896257D+00,
     .  0.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,-.3696028464541502D+00,
     .  0.8525183117012676D+00,-.8525183117012676D+00,
     .  0.8525183117012676D+00,-.8525183117012676D+00,
     .  0.8525183117012676D+00,-.8525183117012676D+00,
     .  0.8525183117012676D+00,-.8525183117012676D+00,
     .  0.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,-.6943540066026664D+00,
     .  0.1890635528853950D+00,-.1890635528853950D+00,
     .  0.1890635528853950D+00,-.1890635528853950D+00,
     .  0.1890635528853950D+00,-.1890635528853950D+00,
     .  0.1890635528853950D+00,-.1890635528853950D+00,
     .  0.3742430390903412D+00,-.3742430390903412D+00,
     .  0.3742430390903412D+00,-.3742430390903412D+00,
     .  0.9273306571511725D+00,-.9273306571511725D+00,
     .  0.9273306571511725D+00,-.9273306571511725D+00,
     .  0.3742430390903412D+00,-.3742430390903412D+00,
     .  0.3742430390903412D+00,-.3742430390903412D+00,
     .  0.9273306571511725D+00,-.9273306571511725D+00,
     .  0.9273306571511725D+00,-.9273306571511725D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00 
     .  /
        data grida(2,1:86) /
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.1000000000000000D+01,-.1000000000000000D+01,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.5773502691896257D+00,0.5773502691896257D+00,
     .  -.5773502691896257D+00,-.5773502691896257D+00,
     .  0.5773502691896257D+00,0.5773502691896257D+00,
     .  -.5773502691896257D+00,-.5773502691896257D+00,
     .  0.3696028464541502D+00,0.3696028464541502D+00,
     .  -.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,0.3696028464541502D+00,
     .  -.3696028464541502D+00,-.3696028464541502D+00,
     .  0.8525183117012676D+00,0.8525183117012676D+00,
     .  -.8525183117012676D+00,-.8525183117012676D+00,
     .  0.8525183117012676D+00,0.8525183117012676D+00,
     .  -.8525183117012676D+00,-.8525183117012676D+00,
     .  0.3696028464541502D+00,0.3696028464541502D+00,
     .  -.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,0.3696028464541502D+00,
     .  -.3696028464541502D+00,-.3696028464541502D+00,
     .  0.6943540066026664D+00,0.6943540066026664D+00,
     .  -.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,0.6943540066026664D+00,
     .  -.6943540066026664D+00,-.6943540066026664D+00,
     .  0.1890635528853950D+00,0.1890635528853950D+00,
     .  -.1890635528853950D+00,-.1890635528853950D+00,
     .  0.1890635528853950D+00,0.1890635528853950D+00,
     .  -.1890635528853950D+00,-.1890635528853950D+00,
     .  0.6943540066026664D+00,0.6943540066026664D+00,
     .  -.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,0.6943540066026664D+00,
     .  -.6943540066026664D+00,-.6943540066026664D+00,
     .  0.9273306571511725D+00,0.9273306571511725D+00,
     .  -.9273306571511725D+00,-.9273306571511725D+00,
     .  0.3742430390903412D+00,0.3742430390903412D+00,
     .  -.3742430390903412D+00,-.3742430390903412D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.3742430390903412D+00,-.3742430390903412D+00,
     .  0.3742430390903412D+00,-.3742430390903412D+00,
     .  0.9273306571511725D+00,-.9273306571511725D+00,
     .  0.9273306571511725D+00,-.9273306571511725D+00 
     .  /
        data grida(3,1:86) /
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.1000000000000000D+01,-.1000000000000000D+01,
     .  0.5773502691896257D+00,0.5773502691896257D+00,
     .  0.5773502691896257D+00,0.5773502691896257D+00,
     .  -.5773502691896257D+00,-.5773502691896257D+00,
     .  -.5773502691896257D+00,-.5773502691896257D+00,
     .  0.8525183117012676D+00,0.8525183117012676D+00,
     .  0.8525183117012676D+00,0.8525183117012676D+00,
     .  -.8525183117012676D+00,-.8525183117012676D+00,
     .  -.8525183117012676D+00,-.8525183117012676D+00,
     .  0.3696028464541502D+00,0.3696028464541502D+00,
     .  0.3696028464541502D+00,0.3696028464541502D+00,
     .  -.3696028464541502D+00,-.3696028464541502D+00,
     .  -.3696028464541502D+00,-.3696028464541502D+00,
     .  0.3696028464541502D+00,0.3696028464541502D+00,
     .  0.3696028464541502D+00,0.3696028464541502D+00,
     .  -.3696028464541502D+00,-.3696028464541502D+00,
     .  -.3696028464541502D+00,-.3696028464541502D+00,
     .  0.1890635528853950D+00,0.1890635528853950D+00,
     .  0.1890635528853950D+00,0.1890635528853950D+00,
     .  -.1890635528853950D+00,-.1890635528853950D+00,
     .  -.1890635528853950D+00,-.1890635528853950D+00,
     .  0.6943540066026664D+00,0.6943540066026664D+00,
     .  0.6943540066026664D+00,0.6943540066026664D+00,
     .  -.6943540066026664D+00,-.6943540066026664D+00,
     .  -.6943540066026664D+00,-.6943540066026664D+00,
     .  0.6943540066026664D+00,0.6943540066026664D+00,
     .  0.6943540066026664D+00,0.6943540066026664D+00,
     .  -.6943540066026664D+00,-.6943540066026664D+00,
     .  -.6943540066026664D+00,-.6943540066026664D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.9273306571511725D+00,0.9273306571511725D+00,
     .  -.9273306571511725D+00,-.9273306571511725D+00,
     .  0.3742430390903412D+00,0.3742430390903412D+00,
     .  -.3742430390903412D+00,-.3742430390903412D+00,
     .  0.9273306571511725D+00,0.9273306571511725D+00,
     .  -.9273306571511725D+00,-.9273306571511725D+00,
     .  0.3742430390903412D+00,0.3742430390903412D+00,
     .  -.3742430390903412D+00,-.3742430390903412D+00 
     .  /
        data grida(4,1:86) /
     .  0.1154401154401154D-01,0.1154401154401154D-01,
     .  0.1154401154401154D-01,0.1154401154401154D-01,
     .  0.1154401154401154D-01,0.1154401154401154D-01,
     .  0.1194390908585628D-01,0.1194390908585628D-01,
     .  0.1194390908585628D-01,0.1194390908585628D-01,
     .  0.1194390908585628D-01,0.1194390908585628D-01,
     .  0.1194390908585628D-01,0.1194390908585628D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1111055571060340D-01,0.1111055571060340D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1187650129453714D-01,0.1187650129453714D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01,
     .  0.1181230374690448D-01,0.1181230374690448D-01 
     .  /
